home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1987 November & December
/
rerun-1987-11-12.d64
/
delete 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
503b
|
13 lines
63980 rem delete 64 by richard de a'morelli
63981 poke53281,1:poke53280,6:b=820:h=256:print"[147]";
63982 input"erase from line# ";f:input" to line# ";t
63983 input"increment (1-255)";i:ifi<1ori>h-1orf<1orf>63980orf>tthen63991
63984 print"[147] ^erasing":pokeb+4,i
63985 pokeb,f/h:pokeb+1,f-peek(b)*h:pokeb+2,t/h:pokeb+3,t-peek(b+2)*h
63986 h=256:b=820:d=peek(b)*h+peek(b+1)
63987 print""d"":ifd=>peek(b+2)*h+peek(b+3)then63991
63988 l=peek(b+1)+peek(b+4):ifl>h-1thenpokeb,peek(b)+1:l=l-h
63989 pokeb+1,l
63990 print"goto63986":poke631,19:forx=0to2:poke632+x,13:next:poke198,4:end
63991 print"[147]delete 64 finished!":forj=btob+4:pokej,0:next:end